home *** CD-ROM | disk | FTP | other *** search
/ 300 Great Games for Mac / 300 games for mac.iso / Trivia / President Quiz / president quiz / card_5160.txt < prev    next >
Text File  |  1990-04-02  |  3KB  |  162 lines
  1. -- card: 5160 from stack: in
  2. -- bmap block id: 5462
  3. -- flags: 0000
  4. -- background id: 4507
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   reset
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 2 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=45 top=259 right=281 bottom=158
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: New Q & A
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   global dataset
  29.   lock screen
  30.   go to last card of background id 2697
  31.   doMenu New Card
  32.   get the script of prev card
  33.   put false into word 2 of line 6 of it
  34.   set the script of this card to it
  35.   put false into dataSet
  36.   set hilite of bg button id 12 to false
  37.   set hilite of bg button id 15 to false
  38.   set hilite of bg button id 16 to false
  39.   unlock screen
  40.   tabKey
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 3 (button)
  46. -- low flags: 00
  47. -- high flags: A003
  48. -- rect: left=46 top=283 right=305 bottom=186
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: New Biography
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   answer "Go to the card of your President."
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 4 (button)
  65. -- low flags: 00
  66. -- high flags: 2000
  67. -- rect: left=275 top=261 right=303 bottom=475
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: 
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   visual dissolve
  79.   go to next card
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 5 (button)
  85. -- low flags: 00
  86. -- high flags: 0002
  87. -- rect: left=479 top=305 right=330 bottom=502
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 19727 / 19727
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   doMenu "Quit HyperCard"
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 6 (button)
  104. -- low flags: 80
  105. -- high flags: A002
  106. -- rect: left=106 top=315 right=335 bottom=247
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: Finally through!
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   lock screen
  118.   go to card id 3008
  119.   hide bg button id 17
  120.   hide bg button id 18
  121.   hide bg button id 19
  122.   go to card id 5160
  123.   hide cd button id 3
  124.   hide cd button id 2
  125.   hide cd button id 6
  126.   unlock screen
  127.   answer "I'm through!"
  128.   set userLevel to 1
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 9 (button)
  134. -- low flags: 80
  135. -- high flags: A002
  136. -- rect: left=254 top=315 right=335 bottom=395
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Undo through!
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   lock screen
  148.   go to card id 3008
  149.   show bg button id 17
  150.   show bg button id 18
  151.   show bg button id 19
  152.   go to card id 5160
  153.   show cd button id 3
  154.   show cd button id 2
  155.   hide cd button id 6
  156.   hide cd button id 9
  157.   unlock screen
  158.   answer "I'm through!"
  159.   set userLevel to 5
  160. end mouseUp
  161.  
  162.